﻿Public Class frmProdutos
    Dim objcontrole As New ClsControle
    Dim objProduto As New CLSProdutos
    Dim novo As Boolean
   
    Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
        If Not objcontrole.Testar_vazio(Me) Then
            objProduto.ID = txtCod.Text
            objProduto.NomeProduto = txtNome.Text
            objProduto.Quantidade = txtQtd.Text
            objProduto.valorUnitario = txtValorUnitario.Text

            novo = True
            objProduto.Gravar(novo)
            MessageBox.Show("Produto Salvo com Sucesso!", "Sucesso", MessageBoxButtons.OK, MessageBoxIcon.Information)
            objcontrole.Limpar_tela(Me)
        End If


    End Sub

    Public Sub txtCod_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCod.Validated
        If Not txtCod.Text = "" Then
            If objProduto.LocalizarPorCodigoDuplicado(CLng(txtCod.Text)) = True Then
                MessageBox.Show("produto já cadastrado com este codigo")
                txtCod.Focus()
            End If
        End If

    End Sub


    Private Sub frmProdutos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objcontrole.Habilitar_tela(Me, False)
        objcontrole.Habilitar_botoes(Me, False)
        btnNovo.Enabled = True
        btnCancelar.Enabled = True
        btnSair.Enabled = True
        'BtnImp.Enabled = False
    End Sub

    Private Sub btnNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNovo.Click
        objcontrole.Limpar_tela(Me)
        objcontrole.Habilitar_tela(Me, True)
        'objcontrole.Habilitar_botoes(Me, False)
        txtCod.Enabled = True
        btnSalvar.Enabled = True
        txtCod.Focus()
        novo = True
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        frmProdutos_Load(Nothing, Nothing)
        objcontrole.Limpar_tela(Me)
    End Sub

    Private Sub btnSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSair.Click
        Me.Close()
    End Sub

    Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click
        If objProduto.excluir(txtCod.Text) Then
            objcontrole.Limpar_tela(Me)
        End If
    End Sub

    Private Sub BTNANT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNANT.Click
        objProduto.Ir_para_anterior()
        Call mostrar_dados_na_tela()
    End Sub

    Private Sub BTNPRI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPRI.Click
        objProduto.Ir_para_primeiro()
        Call mostrar_dados_na_tela()
    End Sub

    Private Sub BTNPRO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPRO.Click
        objProduto.Ir_para_proximo()
        Call mostrar_dados_na_tela()
    End Sub

    Private Sub BTNULT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNULT.Click
        objProduto.Ir_para_ultimo()
        Call mostrar_dados_na_tela()
    End Sub

    Private Sub mostrar_dados_na_tela()
        txtCod.Text = objProduto.ID
        txtNome.Text = objProduto.NomeProduto
        txtQtd.Text = objProduto.Quantidade
        txtValorUnitario.Text = objProduto.valorUnitario
        btnAlterar.Enabled = True
        btnExcluir.Enabled = True
        'BtnImp.Enabled = True
    End Sub

    Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click

    End Sub

End Class